/*
 * Sample 3
 * This source file contains an example program written in SALSA!
 *
 */

;; greetings :: int -> string

(define (greetings x)
  (case ((< x 12) "Good morning")
        ((< x 19) "Good evening")
        ((< x 24) "Good night")
        (else "Are you in Pluto or what?")))

(greetings 20) ; calling greetings with 20
